Er is geen corpus gespecificeerd, dat alsnog doen";
$invr_corp="semanta";
}
$sql = "SELECT * FROM freq where `domn` ='$invr_corp' ";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql, $link);
$tabl_num = mysql_num_rows($tablresult);
// echo " Er zijn ".$tabl_num." trefwoorden te selecteren in het corpus ".$invr_corp;
if ($invr_taal == null)
{
$invr_taal="nederlands";
}
$bzv1_dtls=explode(" ",$invr_bzv1);
$sw_cntr=0;
if (count ($bzv1_dtls) > 0)
{
$sw_cntr=1;
}
foreach($bzv1_dtls as $bzv1_key => $bzv1_val)
{
if(strlen($bzv1_val) < 4)
{
$sw_cntr=0;
}
$zoek_lgrm=$bzv1_val."%";
$zoek_corp=$invr_corp."%";
$bzv1_lgrm=$invr_bzv1."%";
$wdnf_cntr=0;
////////////////////////
if ($bzv1_val != null and strlen($bzv1_val) > 4)
{
$calc_rslt=calc_text($bzv1_val,$invr_chbt,$invr_corp);
$sw_cntr=1;
$sql = "SELECT * FROM freq where `rchs` like '$zoek_lgrm' order by `levl`,`rchs` asc";
// $sql = "SELECT * FROM splt where `domn` like '$zoek_corp' and `rchs` like '$zoek_lgrm' and `levl` > '$invr_lgrm' order by `levl`,`rchs` asc";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql, $link);
$tabl_num = mysql_num_rows($tablresult);
// echo " Aantallen FREQ ".$sql." ".$tabl_num;
$wt=0;
if ($tabl_num == 0)
{
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
$zoek_ook=" Het trefwoord ".$invr_bzv1." is niet aanwezig in het corpus ".$invr_corp." zoek ook hier ".$invr_bzv1."";
echo $zoek_ook;
$wt=0;
if ($userip != "81.207.16.26")
{
echo " ".$ip_adres." ".$woordonderhoud." ".$aanmelden." M:info@semanta.nl T:1-514-331-0172 T:31-162-313323";
exit;
}
}
if ($tabl_num != 0 and $sw_cntr == 1)
{
// echo " Er zijn voor uw keuze ".$tabl_num," trefwoorden";
echo "
";
while ($row = mysql_fetch_assoc($tablresult) and $wt < 32)
{
$gw27_ipad=$row['ipad'];
$gw27_taal=$row['taal'];
$gw27_domn=$row['domn'];
$gw27_lnks=$row['lnks'];
$gw27_rchs=$row['rchs'];
$gw27_levl=$row['levl'];
// echo " $dtls_val)
{
if (strlen($dtls_val) > 3)
{
$zoek_ook="".$dtls_val."";
}
else
{
$zoek_ook=$dtls_val;
}
$new_text=$new_text." ".$zoek_ook;
}
$cmds_ipad=$_SERVER['REMOTE_ADDR'];
$cmds_bzv2=$invr_bzv1."[trce[".$gw27_taal."[".$invr_bzkr."[".$gw27_rchs."@".$gw27_lnks."[0";
// echo " ".$cmds_bzv2;
require_once ("chbt-cmds-code-2.php");
$freq_domn="".$gw27_rchs."";
if (strlen($gw27_rchs) > 3 and $gw27_levl > $invr_lgrm and $invr_lgrm > -1)
{
echo "
".$gw27_levl."
".$freq_domn."
".$new_text."
";
}
///////
$word_lnks=$gw27_rchs;
$sql = "SELECT * FROM gw27 where `lnks`= '$gw27_rchs' order by `levl`,`rchs` asc";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$gw27result = mysql_query($sql, $link);
$gw27_num = mysql_num_rows($gw27result);
// echo " Aantallen FREQ ".$sql." ".$gw27_num;
$wt=0;
if ($gw27_num == 0 and $invr_lgrm > -1 )
{
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
$zoek_ook="- ".$gw27_rchs." ";
$wdnf_cntr=$wdnf_cntr+1;
echo $zoek_ook;
$wt=0;
if ($userip != "81.207.16.26")
{
echo " ".$ip_adres." ".$woordonderhoud." ".$aanmelden." M:info@semanta.nl T:1-514-331-0172 T:31-162-313323";
exit;
}
}
if ($gw27_num != 0 and $sw_cntr== 1)
{
// echo " Er zijn voor uw keuze ".$gw27_num," grammaticakenmerken";
while ($row = mysql_fetch_assoc($gw27result) )
{
$gw27_ipad=$row['ipad'];
$gw27_taal=$row['taal'];
$gw27_domn=$row['domn'];
$gw27_lnks=$row['lnks'];
$gw27_rchs=$row['rchs'];
$rchs_dtls=explode(",",$gw27_rchs);
// print_r($rchs_dtls);
$gw27_levl=$row['levl'];
foreach($rchs_dtls as $dtls_key => $dtls_val)
{
if (strlen($dtls_val) == 3)
{
if ($dtls_val == "tbd")
{
$zoek_ook="- ".$word_lnks." ";
// echo $zoek_ook;
}
else
{
$dtls_array[$dtls_val]=$dtls_array[$dtls_val]+1;
}
}
}
}
}
}
}
}
}
echo " Er zijn ".$wdnf_cntr." niet-grammaticale woordvormen.";
arsort($dtls_array);
// print_r($dtls_array);
foreach($dtls_array as $dtls_key => $dtls_val)
{
if ($dtls_key == "prs" or $dtls_key == "org" or $dtls_key == "anm" or $dtls_key == "vnm")
{
// echo " ".$dtls_key." ".$dtls_val;
}
}
echo "
";
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
/////////////////////////
$zoek_bzv1="%".$invr_bzv1."%";
echo " ".$zoek_bzv1;
if (strlen($invr_bzv1) > 3)
{
////////////////////
$sql = "SELECT * FROM splt where `rchs` like '$zoek_bzv1' and `domn` = '$invr_corp' order by `domn` asc";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql, $link);
$tabl_num = mysql_num_rows($tablresult);
echo " Aantallen splt ".$sql." ".$tabl_num;
// echo " ";
$linvr_bzv1=str_replace(" ","+",$invr_bzv1);
if ($tabl_num == 0)
{
$lrchs="".$invr_bzv1."";
// echo $lrchs;
$lrchs="Vraagstellingen";
// echo $lrchs;
echo '';
}
else
{
echo "